/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / utils / symbol-syntax.elc.z / symbol-syntax.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 36 3a 31 36 20 31 | 39 39 38 0a 3b 3b 3b 20 |:56:16 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 75 74 69 6c |s-20.3/l|isp/util|
|000000a0| 73 2f 73 79 6d 62 6f 6c | 2d 73 79 6e 74 61 78 2e |s/symbol|-syntax.|
|000000b0| 65 6c 0a 3b 3b 3b 20 65 | 6d 61 63 73 20 76 65 72 |el.;;; e|macs ver|
|000000c0| 73 69 6f 6e 20 32 30 2e | 34 20 22 45 6d 65 72 61 |sion 20.|4 "Emera|
|000000d0| 6c 64 22 20 58 45 6d 61 | 63 73 20 20 4c 75 63 69 |ld" XEma|cs  Luci|
|000000e0| 64 2e 0a 3b 3b 3b 20 62 | 79 74 65 63 6f 6d 70 20 |d..;;; b|ytecomp |
|000000f0| 76 65 72 73 69 6f 6e 20 | 32 2e 32 35 20 58 45 6d |version |2.25 XEm|
|00000100| 61 63 73 3b 20 32 32 2d | 4d 61 72 2d 39 36 2e 0a |acs; 22-|Mar-96..|
|00000110| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|00000120| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|00000130| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|00000140| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000150| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000160| 39 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |9...(if |(and (bo|
|00000170| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000180| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000190| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|000001a0| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|000001b0| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|000001c0| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|000001d0| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 32 30 22 29 |cs-versi|on "20")|
|000001e0| 29 29 0a 20 20 20 20 28 | 65 72 72 6f 72 20 22 60 |)).    (|error "`|
|000001f0| 73 79 6d 62 6f 6c 2d 73 | 79 6e 74 61 78 2e 65 6c |symbol-s|yntax.el|
|00000200| 27 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |' was co|mpiled f|
|00000210| 6f 72 20 45 6d 61 63 73 | 20 32 30 22 29 29 0a 0a |or Emacs| 20"))..|
|00000220| 28 6f 72 20 28 62 6f 75 | 6e 64 70 20 27 63 75 72 |(or (bou|ndp 'cur|
|00000230| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 29 20 |rent-loa|d-list) |
|00000240| 28 73 65 74 71 20 63 75 | 72 72 65 6e 74 2d 6c 6f |(setq cu|rrent-lo|
|00000250| 61 64 2d 6c 69 73 74 20 | 6e 69 6c 29 29 0a 0a 0a |ad-list |nil))...|
|00000260| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 ac |(byte-co|de "..!.|
|00000270| 82 c2 11 c1 0b 42 13 c2 | 87 22 20 5b 62 6f 75 6e |.....B..|." [boun|
|00000280| 64 70 20 73 79 6d 62 6f | 6c 2d 73 79 6e 74 61 78 |dp symbo|l-syntax|
|00000290| 2d 74 61 62 6c 65 2d 61 | 6c 69 73 74 20 6e 69 6c |-table-a|list nil|
|000002a0| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|000002b0| 73 74 5d 20 32 29 0a 28 | 64 65 66 61 6c 69 61 73 |st] 2).(|defalias|
|000002c0| 20 27 75 70 64 61 74 65 | 2d 73 79 6d 62 6f 6c 2d | 'update|-symbol-|
|000002d0| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 2d 61 6c 69 |syntax-t|able-ali|
|000002e0| 73 74 20 23 5b 6e 69 6c | 20 22 08 c1 1a 89 1b 3a |st #[nil| ".....:|
|000002f0| ad d6 0b 40 ac 86 c4 c5 | 21 88 aa ab 0b 40 40 ac |...@....|!....@@.|
|00000300| 86 c4 c6 21 88 aa a0 0b | 40 40 89 12 39 ab 98 0b |...!....|@@..9...|
|00000310| 40 41 ab 84 c4 c7 21 88 | 5c 6e 39 ab 86 5c 6e 4a |@A....!.|\n9..\nJ|
|00000320| 89 12 aa 77 0b 40 5c 6e | a0 88 c8 0b 40 40 21 ac |...w.@\n|....@@!.|
|00000330| 86 c4 c9 21 88 aa 8e 0b | 40 41 ac 89 0b 40 ca 0b |...!....|@A...@..|
|00000340| 40 40 21 a1 88 0b 41 89 | 13 aa 27 2a 87 22 20 5b |@@!...A.|..'*." [|
|00000350| 73 79 6d 62 6f 6c 2d 73 | 79 6e 74 61 78 2d 74 61 |symbol-s|yntax-ta|
|00000360| 62 6c 65 2d 61 6c 69 73 | 74 20 6e 69 6c 20 69 74 |ble-alis|t nil it|
|00000370| 65 6d 20 61 6c 69 73 74 | 20 65 72 72 6f 72 20 22 |em alist| error "|
|00000380| 4d 69 73 73 69 6e 67 20 | 61 6c 69 73 74 20 69 74 |Missing |alist it|
|00000390| 65 6d 22 20 22 41 6c 69 | 73 74 20 69 74 65 6d 20 |em" "Ali|st item |
|000003a0| 77 69 74 68 20 6e 75 6c | 6c 20 63 61 72 22 20 22 |with nul|l car" "|
|000003b0| 41 6c 69 73 74 20 69 74 | 65 6d 20 65 78 70 65 63 |Alist it|em expec|
|000003c0| 74 65 64 20 74 6f 20 68 | 61 76 65 20 6e 75 6c 6c |ted to h|ave null|
|000003d0| 20 63 64 72 22 20 73 79 | 6e 74 61 78 2d 74 61 62 | cdr" sy|ntax-tab|
|000003e0| 6c 65 2d 70 20 22 41 6c | 69 73 74 20 69 74 65 6d |le-p "Al|ist item|
|000003f0| 20 63 61 72 20 65 78 70 | 65 63 74 65 64 20 74 6f | car exp|ected to|
|00000400| 20 62 65 20 73 79 6d 62 | 6f 6c 20 74 61 62 6c 65 | be symb|ol table|
|00000410| 22 20 6d 61 6b 65 2d 73 | 79 6d 62 6f 6c 2d 73 79 |" make-s|ymbol-sy|
|00000420| 6e 74 61 78 2d 74 61 62 | 6c 65 5d 20 34 5d 29 0a |ntax-tab|le] 4]).|
|00000430| 28 64 65 66 61 6c 69 61 | 73 20 27 67 65 74 2d 73 |(defalia|s 'get-s|
|00000440| 79 6d 62 6f 6c 2d 73 79 | 6e 74 61 78 2d 74 61 62 |ymbol-sy|ntax-tab|
|00000450| 6c 65 20 23 5b 28 6e 6f | 72 6d 2d 74 61 62 6c 65 |le #[(no|rm-table|
|00000460| 29 20 22 c0 19 5c 6e 0b | b7 89 11 ac 9d c4 20 88 |) "..\n.|...... .|
|00000470| 5c 6e 0b b7 89 11 ac 93 | 5c 6e 43 0b 42 13 c4 20 |\n......|\nC.B.. |
|00000480| 88 5c 6e 0b b7 89 11 ac | 84 c5 c6 21 88 09 41 89 |.\n.....|...!..A.|
|00000490| 11 ac 84 c5 c7 21 88 c8 | 09 21 ac 84 c5 c9 21 88 |.....!..|.!....!.|
|000004a0| 09 29 87 22 20 5b 6e 69 | 6c 20 72 65 73 75 6c 74 |.)." [ni|l result|
|000004b0| 20 6e 6f 72 6d 2d 74 61 | 62 6c 65 20 73 79 6d 62 | norm-ta|ble symb|
|000004c0| 6f 6c 2d 73 79 6e 74 61 | 78 2d 74 61 62 6c 65 2d |ol-synta|x-table-|
|000004d0| 61 6c 69 73 74 20 75 70 | 64 61 74 65 2d 73 79 6d |alist up|date-sym|
|000004e0| 62 6f 6c 2d 73 79 6e 74 | 61 78 2d 74 61 62 6c 65 |bol-synt|ax-table|
|000004f0| 2d 61 6c 69 73 74 20 65 | 72 72 6f 72 20 22 53 79 |-alist e|rror "Sy|
|00000500| 6e 74 61 78 20 74 61 62 | 6c 65 20 6d 69 73 73 69 |ntax tab|le missi|
|00000510| 6e 67 20 66 72 6f 6d 20 | 73 79 6d 62 6f 6c 2d 73 |ng from |symbol-s|
|00000520| 79 6e 74 61 78 2d 74 61 | 62 6c 65 2d 61 6c 69 73 |yntax-ta|ble-alis|
|00000530| 74 22 20 22 41 6c 69 73 | 74 20 69 74 65 6d 20 68 |t" "Alis|t item h|
|00000540| 61 73 20 6e 75 6c 6c 20 | 63 64 72 22 20 73 79 6e |as null |cdr" syn|
|00000550| 74 61 78 2d 74 61 62 6c | 65 2d 70 20 22 4e 6f 6e |tax-tabl|e-p "Non|
|00000560| 2d 73 79 6e 74 61 78 2d | 74 61 62 6c 65 20 69 74 |-syntax-|table it|
|00000570| 65 6d 20 69 6e 20 61 6c | 69 73 74 22 5d 20 32 5d |em in al|ist"] 2]|
|00000580| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6d 61 6b |).(defal|ias 'mak|
|00000590| 65 2d 73 79 6d 62 6f 6c | 2d 73 79 6e 74 61 78 2d |e-symbol|-syntax-|
|000005a0| 74 61 62 6c 65 20 23 5b | 28 69 6e 2d 74 61 62 6c |table #[|(in-tabl|
|000005b0| 65 29 20 22 c0 09 21 1a | c3 c4 5c 6e 5c 22 88 5c |e) "..!.|..\n\".\|
|000005c0| 6e 29 87 22 20 5b 63 6f | 70 79 2d 73 79 6e 74 61 |n)." [co|py-synta|
|000005d0| 78 2d 74 61 62 6c 65 20 | 69 6e 2d 74 61 62 6c 65 |x-table |in-table|
|000005e0| 20 6f 75 74 2d 74 61 62 | 6c 65 20 6d 61 70 2d 73 | out-tab|le map-s|
|000005f0| 79 6e 74 61 78 2d 74 61 | 62 6c 65 20 23 5b 28 6b |yntax-ta|ble #[(k|
|00000600| 65 79 20 76 61 6c 75 65 | 29 20 22 c0 09 21 c2 61 |ey value|) "..!.a|
|00000610| ab 8a c3 0c c5 09 c6 5c | 22 0e 07 23 88 c8 87 22 |.......\|"..#..."|
|00000620| 20 5b 63 68 61 72 2d 73 | 79 6e 74 61 78 2d 66 72 | [char-s|yntax-fr|
|00000630| 6f 6d 2d 63 6f 64 65 20 | 76 61 6c 75 65 20 3f 5c |om-code |value ?\|
|00000640| 5f 20 70 75 74 2d 63 68 | 61 72 2d 74 61 62 6c 65 |_ put-ch|ar-table|
|00000650| 20 6b 65 79 20 73 65 74 | 2d 63 68 61 72 2d 73 79 | key set|-char-sy|
|00000660| 6e 74 61 78 2d 69 6e 2d | 63 6f 64 65 20 3f 77 20 |ntax-in-|code ?w |
|00000670| 6f 75 74 2d 74 61 62 6c | 65 20 6e 69 6c 5d 20 35 |out-tabl|e nil] 5|
|00000680| 5d 5d 20 33 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |]] 3]).(|defalias|
|00000690| 20 27 73 68 6f 77 2d 63 | 68 61 72 73 2d 77 69 74 | 'show-c|hars-wit|
|000006a0| 68 2d 73 79 6e 74 61 78 | 20 23 5b 28 74 61 62 6c |h-syntax| #[(tabl|
|000006b0| 65 73 20 73 79 6e 74 61 | 78 29 20 22 c0 20 c1 1a |es synta|x) ". ..|
|000006c0| 1b c1 8e 0c 3a ab b7 c1 | 1d 0c 40 89 1e 06 1e 07 |....:...|..@.....|
|000006d0| c8 1e 09 0e 06 39 ac 84 | ca cb 21 88 0e 07 39 ab |.....9..|..!...9.|
|000006e0| 88 0e 07 4a 89 16 07 aa | 75 cc cd 0e 07 5c 22 88 |...J....|u....\".|
|000006f0| 0e 06 0d 9f 44 5c 6e 42 | 12 2c 0c 41 89 14 aa 46 |....D\nB|.,.A...F|
|00000700| 29 5c 6e 9f 2a 87 22 20 | 5b 73 79 6e 74 61 78 2d |)\n.*." |[syntax-|
|00000710| 74 61 62 6c 65 20 6e 69 | 6c 20 73 63 68 61 72 73 |table ni|l schars|
|00000720| 20 6f 73 79 6e 20 74 61 | 62 6c 65 73 20 63 68 61 | osyn ta|bles cha|
|00000730| 72 73 20 74 61 62 6c 65 | 2d 73 79 6d 62 6f 6c 20 |rs table|-symbol |
|00000740| 74 61 62 6c 65 20 30 20 | 69 20 65 72 72 6f 72 20 |table 0 |i error |
|00000750| 22 62 61 64 20 61 72 67 | 75 6d 65 6e 74 20 6e 6f |"bad arg|ument no|
|00000760| 6e 2d 73 79 6d 62 6f 6c | 22 20 6d 61 70 2d 73 79 |n-symbol|" map-sy|
|00000770| 6e 74 61 78 2d 74 61 62 | 6c 65 20 23 5b 28 6b 65 |ntax-tab|le #[(ke|
|00000780| 79 20 76 61 6c 75 65 29 | 20 22 08 c1 5c 6e 21 61 |y value)| "..\n!a|
|00000790| ab 84 0b 0c 42 14 c5 87 | 22 20 5b 73 79 6e 74 61 |....B...|" [synta|
|000007a0| 78 20 63 68 61 72 2d 73 | 79 6e 74 61 78 2d 66 72 |x char-s|yntax-fr|
|000007b0| 6f 6d 2d 63 6f 64 65 20 | 76 61 6c 75 65 20 6b 65 |om-code |value ke|
|000007c0| 79 20 63 68 61 72 73 20 | 6e 69 6c 5d 20 33 5d 5d |y chars |nil] 3]]|
|000007d0| 20 34 5d 29 0a 28 70 72 | 6f 76 69 64 65 20 27 73 | 4]).(pr|ovide 's|
|000007e0| 79 6d 62 6f 6c 2d 73 79 | 6e 74 61 78 29 0a       |ymbol-sy|ntax).  |
+--------+-------------------------+-------------------------+--------+--------+